1 PRINT
2 INPUT"[147]MONITOR ODER FERNSEHER (M/F) ";F$
3 IF F$="F"THEN 6
4 IF F$="M"THEN 9
5 GOTO 1
6 POKE53281,0
7 POKE53280,0
8 REM **********************************
9 PRINTCHR$(147)
10 PRINT
12 PRINT"               HAUPTMENUE  "
14 PRINT"               ----------         "
20 PRINT"                                       "
22 PRINT
24 PRINT"              DER ZYLINDER             "
25 PRINT"              ------------
26 [153]
28 [153]
30 [153]"    BERECHNUNG EINES VOLLZYLINDERS [A] "
35 [153]
36 [153]"    VOLUMEN,MASSE,AUFTRIEB,TRAGKRAFT   "
39 [153]"    RADIUS UND HOEHE    "
40 [153]
43 [153]"    BERECHNUNG EINES HOHLZYLINDERS [B] "
45 [153]
50 [153]"    TIPS ZUR BENUTZUNG             [C] "
55 [153]
56 [153]"    ENDE                           [D] "
59 [153]
60 [153]
90 [133]"         BITTE WAEHLEN SIE ";W$
95 [143] *********************************
100 [139] W$[178]"A"[167] 2000
110 [139] W$[178]"B"[167] 3000
115 [139] W$[178]"D"[167] 10000
120 [139] W$[178]"C"[167] 20000
130 [137] 9
150 [153][199](147)
155 [153]
160 [153]" IST DIE BERECHNUG DES VOLUMENS        "
162 [133]" ERWUENSCHT ";R$
165 [139] R$[178]"N"[167] 265
170 [139] R$[178]"J"[167] 210
210 [153]
215 [153]" ZUR VOLUMEN-BERECHNUNG WERDEN BENOETIGT "
220 [153]
225 [133]" 1.  DER RADIUS ";R
230 [133]" 2.  DIE HOEHE BZW. LAENGE ";H
240 [136] V[178](R[172]R)[172]3.1415927[172]H
245 [145] V [137] 260,390,500
250 [153]
260 [153]" DAS VOLUMEN BETRAEGT ";V;"^3.
265 PRINT
270 PRINT" WIRD DIE BERECHNUNG DER MASSE
280 [133]" GEWUENSCHT ";R$
285 [139] R$[178]"N"[167] 300
290 [139] R$[178]"J"[167] 450
300 [153]
305 [153]" AUFTRIEBSBERECHNUNG NUR MIT AUSFUHRUNG"
307 [153]" DER OBRIGEN BERECHNUNGEN MOEGLICH,WENN"
308 [153]" NICHT VORHANDEN DANN DRUECKE N ! "
310 [133]" BERECHNUNG DES AUFTRIEBS ERWUENSCHT ";D$
315 [139] D$[178]"N"[167] 415
320 [139] D$[178]"J"[167] 350
350 [153]
355 [153]
360 [153] " ZUR AUFTRIEBS-BERECHNUNG WERDEN       "
362 [153]" BENOETIGT: "
365 [153]
380 [153]" DIE DICHTE DER FLUESSIGKEIT IN DER DER"
385 [133]" KOERPER SICH BEFINDET ";F
390 [136] A[178]V[172]F
395 [145] A [137] 620,630
400 [153]" DER AUFTRIEB BETRAEGT ";A;"T O. KG O.G"
410 [153]
412 [137] 600
415 [133]" NOCHMAL..... ";N$
420 [139] N$[178]"N"[167] 2000
430 [139] N$[178]"J"[167] 155
450 [153]" IST DAS VOLUMEN IM COMPUTER DURCH DIE "
452 [133]" VOLUMEN-BERECHNUNG VORHANDEN ";F$
455 [139] F$[178]"N"[167] 1200
460 [139] F$[178]"J"[167] 485
485 [153]
486 [153]" ZUR MASSEN-BERECHNUNG WERDEN BENOETIGT"
487 [153]
495 [133]" DIE DICHTE DES MATERIALS ";M
499 [153]
500 [136] G[178]V[172]M
502 [145] G [137] 620,630
505 [153]" DIE MASSE BETRAEGT"; G ;"."
510 [137] 300
600 [153]
601 [153]" TRAGBARKEITSBERECHNUNG IST NUR MIT    "
602 [153]" AUSFUERUNG DER OBRIGEN BERECHNUNGEN   "
603 [153]" MOEGLICH . WENN DIESE BERECHNUNGEN   "
604 [153]" NICHT VORHANDEN SIND DRUECKE N !! "
605 [133]" SIND ANGABEN ZUR TRAGKRAFT ERWUENSCHT ";S$
607 [139] S$[178]"N"[167] 415
609 [139] S$[178]"J"[167] 610
610 [153]
620 [139] A[177]G [167] 635
625 [139] A[179]G [167] 630
630 [153]" DER KOERPER SCHWIMMT NICHT.":[137] 810
635 [153]" DER KOERPER SCHWIMMT.":[137] 800
800 [136] T[178]A[171]G
805 [153]" DIE TRAGKRAFT BETRAEGT ";T;"."
810 [137] 415
1200 [153]
1210 [153]" SOLL DAS VOLUMEN MIT DEM COMPUTER     "
1220 [133] " ERRECHNET WERDEN ";G$
1230 [139] G$[178]"N"[167] 1300
1240 [139] G$[178]"J"[167] 1400
1250 [153]" J ODER N ":[137] 1200
1300 [153]
1310 [133]" EINGABE DES VOLUMENS ";V
1320 [145] V [137] 500
1350 [137] 495
1400 [153]
1401 [153]" ZUR VOLUMEN-BERECHNUNG WERDEN BENOETIGT"
1405 [153]
1410 [133]" DER RADIUS ";R
1420 [133]" DIE LAENGE BZW.DIE HOEHE ";H
1430 [136] V[178](R[172]R)[172]3.1415927[172]H
1432 [145] V [137] 500
1435 [153]
1440 [153]" DAS VOLUMEN BETRAEGT ";V;"^3."
1445 [137] 485
1900 [143] *******************************
2000 [153][199](147)
2010 [153]
2020 [153]"             NEBEN-MENUE   "
2025 [153]"             -----------    "
2030 [153]
2040 [153]
2050 [153]"  MASSE,VOLUMEN,AUFTRIEB,TRAGKRAFT [A] "
2060 [153]
2070 [153]"  HOEHE                            [B] "
2080 [153]
2090 [153]"  RADIUS                           [C] "
2092 [153]
2095 [153]"  ZURUECK INS HAUPTMENUE           [D] "
2100 [153]
2110 [133]"         BITTE WAEHLEN SIE ";A$
2190 [143] *******************************
2200 [139] A$[178]"A"[167] 150
2210 [139] A$[178]"B"[167] 2700
2220 [139] A$[178]"C"[167] 2500
2230 [139] A$[178]"D"[167] 9
2240 [137] 2000
2500 [153][199](147)
2510 [153]
2520 [153]" ES WERDEN BENOETIGT : "
2530 [133] " 1. DAS VOLUMEN ";V
2540 [133] " 2. DIE HOEHE ";H
2550 [136] R[178][186]((V[173]H)[173]3.1415927)
2560 [153]
2570 [153]" DER RADIUS BETRAEGT ";R;"."
2580 [153]
2590 [133] " NOCHMAL..... ";S$
2600 [139] S$[178]"J"[167] 2500
2610 [139] S$[178]"N"[167] 2000
2620 [137] 2580
2700 [153][199](147)
2710 [153]
2720 [153]" ES WERDEN BENOETIGT :"
2730 [153]
2740 [133]" 1. DAS VOLUMEN ";W
2750 [133]" 2. DER RADIUS  ";R
2760 [136] H[178]W[173](R[172]R)[173]3.1415927
2770 [153]
2780 [153]" DIE HOEHE BETRAEGT ";H;"."
2790 [153]
2800 [133] " NOCHMAL..... ";S$
2810 [139] S$[178]"J"[167] 2700
2820 [139] S$[178]"N"[167] 2000
2830 [137] 2790
3000 [153][199](147)
3005 [143] *******************************
3010 [153]
3014 [153]"              NEBEN-MENUE              "
3016 [153]"              -----------              "
3018 [153]
3019 [153]
3020 [153]" WAS IST VORHANDEN :"
3030 [153]
3040 [153]" DER INNEN-UND AUSSENRADIUS +HOEHE [A] "
3050 [153]
3060 [153]" DER INNEN-UND AUSSENDURCHMESSER"
3070 [153]" +HOEHE                            [B] "
3071 [153]
3072 [153]" ZURUECK INS HAUPTMENUE            [C] "
3075 [153]
3080 [153]
3090 [133]"           BITTE WAEHLEN SIE ";V$
3095 [143] *******************************
3100 [139] V$[178]"A"[167] 3200
3110 [139] V$[178]"B"[167] 3600
3115 [139] V$[178]"C"[167]  9
3120 [137] 3000
3200 [153][199](147)
3210 [153]
3220 [153]" ES WIRD BENOETIGT :"
3230 [153]
3240 [133]" 1. DER AUSSENRADIUS ";A
3250 [133]" 2. DER INNENRADIUS ";I
3260 [133]" 3. DIE HOEHE BZW. DIE LAENGE ";H
3262 [136] B[178]A[174]2[172]3.1415927[172]H
3263 [145] B [137] 3469
3265 [136] C[178]I[174]2[172]3.1415927[172]H
3270 [136] V[178]B[171]C
3275 [145] V [137] 3430
3280 [153]" DAS VOLUMEN DES HOHLZYLINDERS BETRAEGT"
3290 [153]V;"^3."
3300 [153]
3310 [133]" WIRD DIE GEWICHTSBERECHNUNG GEWUENSCHT";E$
3330 [139] E$[178]"N"[167] 3000
3340 [139] E$[178]"J"[167] 3400
3400 [153]
3410 [153]" ES WIRD BENOTIGT :"
3420 [133]" DIE DICHTE DES MATERIALS ";R
3430 [136] C[178]V[172]R
3440 [145] B [137] 3500,3520,3525
3445 [153]
3450 [153]" DAS GEWICHT BETRAEGT ";C;"."
3455 [153]
3457 [153] " IST AUFTRIEBSKRAFTBERECHNUNG          "
3458 [133]" ERWUENSCHT ";S$
3459 [139] S$[178]"N"[167] [137] 3000
3461 [139] S$[178]"J"[167] [137] 3463
3463 [153]
3465 [153]" ES WIRD BENOETIGT :"
3467 [133]" DIE DICHTE DER FLUESSIGKEIT ";D
3469 [136] A[178]D[172]B
3470 [145] A [137] 3500,3510,3520
3471 [153]
3473 [153]" DER AUFTRIEB BETRAEGT ";A;"."
3475 [153]
3477 [153]" WERDEN ANGABEN ZUR TRAGKRAFT "
3479 [133]" GEWUENSCHT ";W$
3481 [139] W$[178]"J"[167] 3500
3490 [139] W$[178]"N"[167] 3000
3495 [153]" J ODER N ":[137] 3475
3500 [139] C[177]A [167] [153]" DER KOERPER SCHWIMMT NICHT.":[137] 4000
3520 [139] C[179]A [167] [153]" DER KOERPER SCHWIMMT,MIT EINER TRAG-"
3525 [136] T[178]A[171]C
3530 [153]" KRAFT VON ";T;".":[137] 4000
3540 [133]"2";A$
3600 [153][199](147)
3610 [153]
3620 [153]" ES WERDEN BENOETIGT: "
3630 [153]
3640 [133]" DER AUSSENDURCHMESSER ";S
3645 [133]" DER INNENDURCHMESSER ";N
3647 [133]" DIE HOEHE BZW. LAENGE ";H
3650 [136] A[178]S[173]2
3660 [136] I[178]N[173]2
3665 [153]
3670 [137] 3262
4000 [153]
4010 [153]" DRUECKE SPACE FUER WEITER ."
4020 [161] A$:[139] A$[178]""[167] 4020
4030 [139] A$[178][199](32) [167] 3000
10000 [153][199](147)
10001 [153]" ES HAT MICH GEFREUT IHNEN BEHILFLICH "
10002 [153]" ZU SEIN ."
10003 [162]
20000 [153][199](147)
20010 [153]
20020 [153]"             TIPS ZUR BENUTZUNG        "
20030 [153]"             ******************        "
20040 [153]
20050 [153]" 1. BEANTWORTE ALLE FRAGEN MIT J ODER N."
20060 [153]
20070 [153] " 2. ACHTE AUF GLEICHE MASSEINHEITEN.   "
20080 [153]
20090 [153] " 3. LIES ALLE TEXTE IM PROGRAMM SORG-  "
20100 [153] "    FAELTIG DURCH."
20110 [153]
20111 [153] " 4. UM EINEN MENUEPUNKT ANZUWAEHLEN    "
20120 [153] "    DRUECKE DEN BUCHSTABEN DER ECKIGEN "
20130 [153]"    KLAMMER.     "
20135 [153]
20138 [153]
20140 [153]"   DRUECKE SPACE UM INS HAUPT-MENUE ZU "
20150 [153]"   GELANGEN ."
20160 [161] A$: [139] A$[178]""[167] 20160
20170 [139] A$[178][199](32) [167] 9
30000 [143]
30010 [143] *****************************
30020 [143] **** NAME DES PRG:MATHE 2 ***
30030 [143] **** AUTOR:ALEXANDER ARNDT***
30040 [143] **** DATUM:26.06.1990     ***
30050 [143] **** DISKETTEN-NR.: A6    ***
30060 [143] *****************************
30065 [143] 29 BLOCKS AUF DEM COMMODORE 64
30070 [143]
30080 [143]      E    N    D    E